//Menyembunyikan Taskbar
procedure TForm1.Button4Click(Sender: TObject);
var i  : HWND;
begin       
        if Listbox1.itemindex<> - 1 then
        begin
       	 	i := HWND(Listbox1.items.Objects[Listbox1.itemindex]);
        	ShowWindow(i , SW_Hide);
        end;
end;

//Untuk menampilkan pada taskbar SW_Hide diganti dengan SW_Normal